home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / amos / amoslist-0499 / amoslist / 000214_nobody_Wed Apr 28 16:55:25 1999.msg < prev    next >
Internet Message Format  |  1999-05-17  |  5KB
  1. Received: from onelist.com (pop.onelist.com [209.207.164.211])
  2.     by osf1.gmu.edu (8.8.8/8.8.8) with SMTP id QAA11287
  3.     for <mcox4@osf1.gmu.edu>; Wed, 28 Apr 1999 16:55:25 -0400 (EDT)
  4. Received: (qmail 24883 invoked by alias); 28 Apr 1999 20:55:43 -0000
  5. Received: (qmail 24798 invoked from network); 28 Apr 1999 20:55:40 -0000
  6. Received: from unknown (HELO mago.agonet.it) (195.32.124.10) by pop.onelist.com with SMTP; 28 Apr 1999 20:55:40 -0000
  7. Received: from agonet.it (ghizzo@p126079.agonet.it [195.32.126.79]) by mago.agonet.it (8.8.5/8.8.5) with SMTP id WAA24045 for <amos-list@onelist.com>; Wed, 28 Apr 1999 22:55:06 +0200
  8. From: Pietro Ghizzoni <ghizzo@agonet.it>
  9. To: amos-list@onelist.com
  10. Date: Wed, 28 Apr 1999 18:21:07 +0200
  11. Message-ID: <yam7787.393.1747076848@mail.agonet.it>
  12. In-Reply-To: <yam7784.753.137061800@mail1.tinet.ie>
  13. X-Mailer: YAM 2.0Preview7 [020] - Amiga Mailer by Marcel Beck - http://www.yam.ch
  14. Organization: Dairymen Soft
  15. Mailing-List: list amos-list@onelist.com; contact amos-list-owner@onelist.com
  16. Delivered-To: mailing list amos-list@onelist.com
  17. Precedence: bulk
  18. List-Unsubscribe: <mailto:amos-list-unsubscribe@ONElist.com>
  19. Reply-to: amos-list@onelist.com
  20. Mime-Version: 1.0
  21. Content-Type: text/plain; charset=iso-8859-1
  22. Content-transfer-encoding: 8bit
  23. Subject: [amos-list] Re: A question on GUI extension & Gadtools
  24. Status: O
  25. X-Status: 
  26.  
  27. From: Pietro Ghizzoni <ghizzo@agonet.it>
  28.  
  29. Hello Declan
  30.  
  31. On 25-Apr-99, Declan Gorman wrote: [amos-list] Re: A question on GUI extension & Gadtools
  32.  
  33. > Basically I am trying to fit as much as I can into a window and I find
  34. > sliders take up a lot more space than any other gadget. I got the idea
  35. > from a peecee application and I thought it was good so if I get it
  36. > working it should improve my new application immensely.
  37.  
  38. Right. See below....
  39.  
  40. >> This program doesn't work exactly as you want, because it's not possible
  41. >> to do it exactly as you want :) 
  42. > 
  43. > I kind of guessed that but it does not stop me from trying but there are
  44. > ways around such things.
  45.  
  46. Hehe :)  You're right.. there is a way around!
  47.  
  48.  
  49. > Damn that gadtools! ;)
  50.  
  51. Oohh... poor little gadtools ;) It's small, but it works fine. I've found
  52. the solution!
  53.  
  54. *We can obtain the effect exactly as you want!* We have problems with the left
  55. mouse button, because when you click a gadget the gadtools consider the
  56. action as a gadget press and not as a mouse click, even if the gadget is
  57. not "selectable". BUT... we can use the _RIGHT_ mouse button without
  58. problem!! If you click a gadget using the right mouse button, the action is
  59. not considered a gadget selection, but a standard mouse click, and so we
  60. can easly monitor the mouse key hold/release position and obtain the
  61. invisible slider effect. The secret is the Gui Rmb command.
  62.  
  63. Here the code: (window 1 - gadget 0 )
  64.  
  65.  
  66. Gui Open 1,1,20 : Gui Rmb 1,0 : Gui Mouse Report 1,True
  67.  
  68. 'The Y Center of the gadget
  69. '--------------------
  70. Y1=Gui Gad Height(1,0)/2+Gui Y Gad(1,0)
  71.  
  72. Repeat 
  73.    
  74.    G=Gui Wait : X=Gui Mouse Ux : Y=Gui Mouse Uy : CD=Gui Code
  75.    GA=Gui Check(1,X,Y)
  76.    
  77.    If G=-11
  78.       
  79.       If CD=105
  80.          
  81.          If GA=0 : SLD=1 : End If 
  82.          
  83.       Else 
  84.          
  85.          SLD=0
  86.          
  87.       End If 
  88.       
  89.    Else If G=-12
  90.       
  91.       If SLD : Gui Set 1,0,0,Y1-Y : End If 
  92.       
  93.    End If 
  94.    
  95. Until G=-1
  96.  
  97. Gui Reset 
  98.  
  99.  
  100.  
  101. Try it, and let me know.
  102.  
  103.  
  104. P.S .. and what about the problem to align correctly a integer gadget? is
  105. ok now?
  106.  
  107.  
  108. -- 
  109.  
  110.  
  111. Bye!
  112.  
  113.  
  114.                                      !!!
  115.                                      o o
  116.    +-----------------------------oOO-(_)-OOo----------------------------+
  117.    |                                                                    |
  118.    |  Pietro Ghizzoni - Dairymen Soft              __  /// Amiga 12OO   |
  119.    |     E-Mail:  ghizzo@agonet.it                 \\\/// 'O3O  5OMhz   |
  120.    |           ICQ 16361472                         \/// 18MB - CD4x    |
  121.    |                                                                    |
  122.    | Amos Development Group Coordinator                 AMIGA RULEZ!    |
  123.    |                                                                    |
  124.    +--------------------------------------------------------------------+
  125.  
  126.  
  127. ------------------------------------------------------------------------
  128. What does Public Radio's "Ask Dr. Science Show" know that you don't...?
  129. http://www.onelist.com
  130. ...That ONElist hosts the largest free e-mail lists on the Internet today!
  131. ------------------------------------------------------------------------
  132. Official AMOS WWW: http://members.xoom.com/AmosFactory/front.html